perm filename CRESAI.SAI[C,BGB] blob sn#101485 filedate 1974-05-13 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "CRESAI"
C00003 ENDMK
CāŠ—;
BEGIN "CRESAI"
	REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;
	REQUIRE "CRE" LOAD_MODULE;
	REQUIRE "MKCON" LOAD_MODULE;
	REQUIRE "CMPARE" LOAD_MODULE;
	REQUIRE "CREMEM" LOAD_MODULE;
	REQUIRE "CREIO" LOAD_MODULE;
	REQUIRE "CREDPY" LOAD_MODULE;
	REQUIRE "TSERVO" LOAD_MODULE;

	EXTERNAL SIMPLE PROCEDURE CREIN;
	EXTERNAL SIMPLE PROCEDURE DPYIMG;

	CREIN;
	DPYIMG;
	WHILE TRUE DO INCHRW;

END "CRESAI";